dry run in string pattern in qbasic